home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / sid-prin (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  111 lines
  1. 101 REM "[199][206][196] 1/20/90 ONE SAT. MORN.
  2. 102 [143] "(null)EAD AND PRINT .WDS PRG SID FILES.
  3. 103 REM "[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  4. 104 [153]"LOAD"
  5. 105 [134]A$(144)
  6. 106 [141]192  
  7. 107 [141]118  
  8. 108 [141]172   :[143] READ FILE
  9. 109 [153]:[153]"ATNWAITNOTHER FILE : (null)WAITEW DISK : VALWAITXIT "
  10. 110 [129]X[178]1[164]500:[130]
  11. 111 [161] Z1$: [139] Z1$[178]"" [167]111 
  12. 112 [139] Z1$[178]"A" [167]A$[178]"": [141]122  :[137]108 
  13. 113 [139] Z1$[178]"N" [167]106 
  14. 114 [139] Z1$[178]"E" [167]116 
  15. 115 [137]111 
  16. 116 [153]"(null)O (null)ONG, PARTNER."
  17. 117 [128]
  18. 118 [143] READ DIR
  19. 119 SP$[178]"               "
  20. 120 [143] READ DIR INTO ARRAY + DISPLAY
  21. 121 [141]134 :[143] DIR.READ
  22. 122 [153] C2$ "LOAD        .(null)STR$(null) (null)EADER ... (null)RINTER       "
  23. 123 [153]"     USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   "
  24. 124 [153]"  [+-]= PAGE           [UP,DN]= SCROLL"
  25. 125 NUM[178]9 : [143] # OF FILES TO DISPL.
  26. 126 BEG[178]1
  27. 127 FC[178]BEG
  28. 128 [153] ""
  29. 129 [141]150   : [143] PRINT DIR TO SCRN
  30. 130 [141]157   : [143] PAGE TURN
  31. 131 [139] A$[178]"Q" [167] [142]
  32. 132 [139]A$[178][199](13)[167] [142]
  33. 133 [137]129   
  34. 134 [143] DIR. READ
  35. 135 [153]"LOAD           (null)RINT (null)ORDS TO (null)RIGHT$STR$(null)        "
  36. 136 [153]"   USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  37. 137 [153]"     (null)LEASE (null)AIT:(null)EARCHING STR$IRECTORY  "
  38. 138 [143]  GOSUB1100 :REM OPEN [231] CHANNEL
  39. 139 [143] OPEN DIRECTORY
  40. 140 MF[178]0
  41. 141 [159] 1,8,0,"$0"
  42. 142 [143]
  43. 143 [129]I[178]0[164]30:[161]#1,A$:[130]
  44. 144 [161]#1,A$:[139] ST [167] [160]1:[160]15:[142]
  45. 145 [139] A$[179][177][199](34)[167]144  
  46. 146 MF[178]MF[170]1 :[153]""MF:[143] COUNT # OF FILES
  47. 147 [161]#1,A$:[139]A$[179][177][199](34)[167] A$(MF)[178]A$(MF)[170]A$:[137]147  
  48. 148 [139][201](A$(MF),4)[179][177]".WDS"[167] A$(MF)[178]"":MF[178]MF[171]1
  49. 149 [137]144 
  50. 150 [143] LOOP DISPLAY
  51. 151 [153]"" : EN[178]BEG[170]NUM
  52. 152 [129] X[178]BEG [164] EN
  53. 153 [139] FC[178]X [167] [153] [163]13)""A$(X)[200](SP$,16[171][195](A$(X))):[137]155   
  54. 154 [153] [163]13)A$(X)[200](SP$,16[171][195](A$(X)))
  55. 155 [130]
  56. 156 [142]
  57. 157 [143] PAGE TURN
  58. 158 [161] A$: [139] A$[178]"" [167]158   
  59. 159 [139]A$[178]"Q"[167] Q[178]1:[142]
  60. 160 [139]A$[178][199](13)[167] [142]
  61. 161 [139]A$[178]"-"[167] BEG[178]BEG[171]NUM
  62. 162 [139]A$[178]"+"[167] BEG[178]BEG[170]NUM
  63. 163 [139] BEG[177]MF[171]NUM [167] BEG[178]MF[171]NUM
  64. 164 [139] BEG[179]1 [167] BEG[178]1
  65. 165 [143] ENTRY [237]R
  66. 166 [139] A$[178]"ON" [167] FC[178]FC[171]1
  67. 167 [139] A$[178]"" [167] FC[178]FC[170]1
  68. 168 [139] FC[177]MF [167] FC[178]MF
  69. 169 [139] FC[177]BEG[170]NUM [167] FC[178]BEG[170]NUM
  70. 170 [139] FC[179]BEG [167] FC[178]BEG
  71. 171 [142]
  72. 172 [143] READ FILE + PRINT
  73. 173 [153]"LOAD    (null)URN ON PRINTER AND PRESS A KEY     WAIT"
  74. 174 [153]"(null)EADY TO PRINT "A$(FC)"WAIT"
  75. 175 [153]"(null)WAIT TO QUIT"
  76. 176 [153]"----------------------------------------"
  77. 177 [161]A$:[139]A$ [178] "" [167]177  
  78. 178 [139]A$[178]"Q"[167] [142]
  79. 179 [160]4:[159] 4,4
  80. 180 [143] PRINT#4,CHR$(17)
  81. 181 [159] 1,8,2,"0:"[170]A$(FC)[170]",P,R"
  82. 182 [161]#1,A$:[139]ST[167][160]1:[142]
  83. 183 [141]189  
  84. 184 [139]Q[167]Q[178]0:[160]1:[160]4:[142]
  85. 185 A$[178][199]([198](A$)[175]127)
  86. 186 [153]A$;
  87. 187 [152]4,A$;
  88. 188 [137]182 
  89. 189 [161] Z$
  90. 190 [139]Z$[178]"Q"[167] Q[178]1
  91. 191 [142]
  92. 192 [143] INTRO
  93. 193 [153][199](14)
  94. 194 C2$[178]"CONT"
  95. 195 [151]53281,1 :[151]53280,1 :[151]646,[198](C2$)
  96. 196 [153]"LOADUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
  97. 197 [153]"  (null)HIS WILL PRINT THE WORDS THAT"
  98. 198 [153]"ACCOMPANY (null)RIGHT$STR$ FILES."
  99. 199 [153]
  100. 200 [153]"(null)OW YOU CAN SEE ALL THE WORDS AT ONCE!"
  101. 201 [153]
  102. 202 [153]"(null)EAD AT YOUR LEISURE OR SING ALONG"
  103. 203 [153]"WITH SID OR RADIO!"
  104. 204 [153]
  105. 205 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  106. 206 [153]"RIGHT$NSERT DISK WITH .WDS FILES "
  107. 207 [153]
  108. 208 [153]"AND TOUCH A KEY..."
  109. 209 [161] Z$: [139] Z$[178]"" [167]209  
  110. 210 [142]
  111.